home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu715.dms / pu715.adf / Install < prev    next >
Text File  |  1994-10-10  |  2KB  |  111 lines
  1. ; Installer installation script for The Icon Archive
  2. ; $VER: Install 37.5 (10/10/94)
  3.  
  4. ;   --------------------------------------------------------------------------
  5.  
  6. ; Set up Variables
  7.  
  8.     (set @default-dest "RAM:")
  9.     (set lhacom ":c/lha -m x ")
  10.     (set lhaarc "TIA-2:IconArchive2.lha")
  11.     (set lhadec "TIA2.lha")
  12.     (set delcom ":c/delete ")
  13.  
  14. ; Set up Messages
  15.  
  16.     (set #Bad-kick
  17.       (cat "These icons are designed to be used under Kickstart 2.04 or higher!")
  18.     )
  19.  
  20.     (set #Welcome
  21.       (cat "\n The Icon Archive\n\n"
  22.         "Compiled by Kevin A. Kirk\n\n"
  23.         "First Edition, October 1994\n\n"
  24.         "This archive requires around 4 Meg\n"
  25.         "of hard disk space to install successfully.\n")
  26.     )
  27.  
  28.     (set #Arcdir "Please select the directory where you would like to install The Icon Archive")
  29.  
  30.     (set #Start  "\nInstall The Icon Archive ?")
  31.  
  32.     (set #Decomp "\nDecompressing The Icon Archive")
  33.  
  34.     (set #Dearc  "\nUnarchiving The Icon Archive")
  35.  
  36.     (set #Delarc "\nDeleting remaining uncompressed archive")
  37.  
  38. ; --------------------------------------------------------------------------
  39.  
  40. ; Main program
  41.  
  42. ; Check that we are running under 2.04 or higher.
  43.  
  44.     (if (< (/ (getversion) 65536) 37)
  45.       (
  46.         (abort #bad-kick)
  47.       )
  48.     )
  49.  
  50. ; Welcome message
  51.  
  52.     (message #welcome)
  53.  
  54. ; Ask where to install The Icon Archive
  55.  
  56.     (set ArcDest
  57.       (askdir
  58.         (prompt #Arcdir)
  59.         (help @askdir-help)
  60.         (default @default-dest)
  61.       )
  62.     )
  63.  
  64.     (set @default-dest ArcDest)
  65.  
  66. ; Ask to start to install
  67.  
  68.     (message #Start)
  69.  
  70. ; Add a trailing / to directory name if necessary
  71.  
  72.     (set Length (strlen ArcDest))
  73.     (set CheckDevice (substr ArcDest (- Length 1) 1))
  74.     (set InstallPath ArcDest)
  75.     (if (<> CheckDevice ":")
  76.         (set InstallPath (cat ArcDest "/"))
  77.     )
  78.     (set ArcDest InstallPath)
  79.  
  80. ; Decompress the archive onto the HD
  81.  
  82.     (
  83.     (working #Decomp)
  84.         (set Decomm
  85.           (cat lhacom lhaarc " " "\"" ArcDest "\"")
  86.         )
  87.         (run Decomm)
  88.     )
  89.  
  90. ; Unarchive the decompressed archive.
  91.  
  92.     (
  93.     (working #DeArc)
  94.         (set Dearcomm
  95.           (cat lhacom "\"" ArcDest lhadec "\"" " " "\"" ArcDest "\"") 
  96.         )
  97.         (run Dearcomm)
  98.     )
  99.  
  100. ; Delete remaining archive.
  101.  
  102.     (
  103.     (working #Delarc)
  104.         (Set Delcomm
  105.           (cat delcom "\"" ArcDest lhadec "\"")
  106.         )
  107.         (run Delcomm)
  108.     )
  109.  
  110. (exit)
  111.